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INTRODUCTION 


The puarpose of this paper is to describe the use of a preprocessor at the 
LaRC computer center that converts RATFOR source into FORTRAN source code that 
complies with the ANSI 1966 FORTRAN standard. A FORTRAN source of an existing 
RATFOR preprocessor was converted to run on LaRC computers. In order for this 
to be done, some minor changes were made to the syntax of the language. This 
paper describes the RATFOR preprocessor that is implemented at LaRC. The phi- 
losophy on which RATFOR is based and more details on the language can be found 
in reference 1. The primary purpose of RATFOR is to make FORTRAN a better 
programing language, for both writing and structuring programs. This is done by 
providing the control structures that are unavailable in bare FORTRAN, and by 
improving the "cosmetics" of the language. By writing programs in RATFOR, they 
will be easier to understand and easy to change if the need arises. 

The control flow structures of RATFOR are DO, FOR, IF, REPEAT, WHILE, BREAK, 
NEXT and statement groupings with brackets. These structures permit programing 
without the use of GOTO statements and result in code that is easier to read. 

The cosmetic aspect of RATFOR has been designed to make it coneise and reason- 
ably pleasing to the eye. It is free- form in that statements may appear any- 
where on an input line. The end of a line generally marks the end of a state- 
ment, but lines that are obviously not finished, such as lines ending with a 
comma, automatically continue onto the next line. Multiple statements may appear 
on one line if separated by semicolons. The com.ment convention, a sharp # 
anywhere in a line signals the beginning of a coram.ent and helps to encourage 
unobtrusive marginal remarks. Quoted strings are converted into H's. Notations 
like convey the meaning of "greater than" more rapidly than equivalent forms 
like .GT. Simple string replacement m.acro’s (DEFINE's) and conditional process- 
ing (IFDEF / IFNOTDEF / EMDIFDEF) are incorporated so as to increase the 
portability of programs written in RATFOR. 

With these two aspects, flow control and cosmetics, RATFOR can generate a 
well-structured program with source code that is easy to follow. This will make 
the program easier to develop and in turn will result in more reliable results. 


THE RATFOR LANGUAGE 


In the following description of the RATFOR language the term "statement" 
can either be a RATFOR single or compound statement. A description of the 
compound statement is given in the RATFOR la.nguage features section. Since an 
objective of this report is to provide a reference document for the language, 
and not a tutorial, the language elements are listed in alphabetical order. 
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1. BREAK 


The break statement causes an immediate exit from an enclosing DO, FOR, 
REPEAT or WHILE loop and continues at the first statement following the 
loop. Only one loop can be terminated by a BREAK, even if the BREAK is 
contained inside several nested loops. Examples of the use of the 
BREAK statement can be found in the examples for each of the looping 
statements . 


2. DEFINE (symbol=replacement string) 


Each occurrence of a defined symbol in the program or INCLUDE file (see 
part 6 of this section) is replaced by the "replacement string," which 
is then processed as input to the processor. The definition of a 
symbol constant can be another defined symbol. Once a symbol is 
defined, it cannot be redefined. Defined symbols must be unique 
alphanumeric character strings beginning with a letter. There are no 
special characters or blanks allowed. Replacement strings can be any 
character string less than 70 characters long but must not contain 
dollar signs and must fit on one source line. 

The replacement string, either in whole or in part, can contain a 
simple integer mathematical relationship between one or more defined 
symbols and/or integers enclosed in less-than and greater-than symbols 
(<,>). Addition, substruction, multiplication and division are allowed. 
Evaluation of the expression is strictly left to right. There is no 
hierarchy of the operators. If the expression contains previously 
defined constants, they are replaced by their replacement string prior 
to mathematical evaluation. 


EXAMPLE: 

DEFINE (LEXBREAK=-1 10) 

DEFINE (LEXDIGITS=<LEXBREAK-1>) 

B=LEXBREAK 

A=LEXDIGITS 


in RATFOR becomes 


B=-110 


A=-lll 


in the FORTRAN code. 


The passing of a single argument to be included in the replacement 
string is distinguished from a simple DEFINE by the presence of at 
least one dollar sign in the definition. Any occurrence of a dollar 
sign in the replacement text will be replaced by the argument of the 
defined symbol when it is actually called. 
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EXAMPLE: 


DEFINE (INCREMENT, $=$+1) 
INCREMENT(I) 

1 = 1 + 1 

3. DO index=limits statement 


I in RATFOR becomes 


} in the FORTRAN code. 


The DO statement sets up a standard FORTRAN DO loop. The "limits" must 
be a legal FORTRAN DO specification since it is copied into the FORTRAN 
code directly. RATFOR supplies the appropriate statement number. 

EXAMPLE: 


DO 1=1,10 [ 

IF(I==9) BREAK 
IF(I==2) NEXT 
K=I-2 
] 


> in RATFOR becomes 


DO 20000 1=1,10 
IF (.NOT. (I.EQ.9)) GOTO 20002 
GOTO 20001 
20002 CONTINUE 

IF (.NOT. (I.EQ.2)) GOTO 20004 
GOTO 20000 
20004 CONTINUE 
K=I-2 

20000 CONTINUE 

20001 CONTINUE 


in the FORTRAN code. 


4. FOR (initialize; condition; reinitialize) statement 

The "initialize" statement is executed, then the "statement" and 
"reinitialize" are executed as long as "condition" is true. The 
"condition," "initialize" and "reinitialize" parts are single FORTRAN 
statements. The "condition" is tested before each iteration. Any of 
the three parts may be om.itted, although the semicolons must remain. 

A null "condition" is treated as always true, so that an infinite loop 
results v;hen the "condition" is omitted. 


EXAMPLE: 

FOR (X=0.; X<=1.; X=X+.05) [ 
Y=EXP(X) 

if(y==o) next 

IF(Y>=12.) BREAK 
Z=EXP(Y) 

] 


i in RATFOR becomes 
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20006 

20009 

20011 

20007 

20008 
5. IF (condition) 

statement-1 

ELSE 

statement-2 

The ELSE and statement-2 are optional. If the "condition" is. true, 
statement-1 is executed; if it is false and there is an ELSE clause, 
statement-2 is executed. In the absence of brackets, each ELSE goes 
with the previous un-ELSEd IF. 


X=0. 

IF (.NOT. (X.LE.l.)) GOTO 20008 
Y=EXP(X) 

IF (.NOT.(Y.EQ.O)) GOTO 20009 

GOTO 20007 

CONTINUE 

IF (.NOT. (Y.GE.12.)) GOTO 20011 

GOTO 20008 

CONTINUE 

Z=EXP(Y) 

X=X+.05 
GOTO 20006 
CONTINUE 


)• in the FORTRAN code. 


EXAMPLE: 

IF(I==J) A=1 . I RATFOR becomes 

ELSE A=2. J 


IF (.NOT. (I.EQ.J)) GOTO 20013 
A=l. 

GOTO 20014 

20013 CONTINUE 
A=2. 

20014 CONTINUE 


> in the FORTRAN code. 


6. INCLUDE/NL filename 


When the RATFOR program encounters an INCLUDE statement, the contents 
of the local file with the name "filename" are read in as source and 
processed. When the end of the file is reached, the input of the 
preprocessor reverts to the next line of the original file. The 
include file may be nested three deep. The /NL is an optional "no- list" 
switch used to suppress the listing of the file in the output listing. 
Any include statem.ents within the file with the no-list switch 
specified will not be listed, regardless of the svvitch settings on 
their INCLUDE lines. 
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7. 


NEXT 


The rest o£ the containing loop is skipped and program continues with 

the next iteration of the loop. For the DO, REPEAT UNTIL and WHILE 

statements the control is to the "condition" test; for the FOR state- 
ment, the control is to the "reinitialize" statement; and for an 
infinite REPEAT, the control is to the top of the loop. Examples of 
the NEXT can be found in the examples for each looping element. 

8. null statement 

; (used by itself) 

The semicolon may be used anywhere that another RATFOR statement may 
be used. 


9 . REPEAT statement 


UNTIL (condition) 

The "statement" is executed until the "condition" is true. The 
"condition" is a single FORTRAN statement that is tested after each 
iteration. The UNTIL statement is optional and if omitted the re.sult 
is an infinite loop. 

EXAMPLE: 


REPEAT [ 

A=--A+l . 

IF(A==7.) NEXT 
Y=F(A) 

if(y==o) break 

] 

UNTIL (A==0. ++ Y==100.) 


in RATFOR becomes 


20015 CONTINUE 
A=A+1 . 

IF (.N0T.(A.EQ.7.)) GOTO 20018 
GOTO 20016 
20018 CONTINUE 
Y=F(A) 

IF (.NOT. (Y.EQ.O)) GOTO 20020 
GOTO 20017 
20020 CONTINUE 

20016 IF (.NOT.(A.EQ.0..OR.Y.EQ.100.)) GOTO 20015 

20017 CONTINUE 


in the FORTRAN code 
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10. WHILE (condition) 
statement 

The "statement" is executed as long as the "condition" is true. The 
"condition" is tested before each iteration. 


EXAMPLE : 

WHILE (B<=3) [ 
X=XYZ(B) 
IF(X==2) BREAK 
Y=X+3 

IF(Y=--=2..S) NEXT 
Z=Y-78. 

] 


f in RATFOR becomes 


20022 


20024 


20026 


IF (.NOT. (B.LE.3)) GOTO 20023 ' 

X=XYZ(B) 

IF (.NOT. (X.EQ.2)) GOTO 20024 

GOTO 20023 

CONTINUE 

Y=X+3 

IF (.NOT. (Y.EQ.2.5)) GOTO 20026“ 

GOTO 20022 

CONTINUE 

Z=Y-78. 


in the FORTRAN code. 


GOTO 20022 
20023 CONTINUE 


RATFOR LANGUAGE FEATURES 


1 . CONMENTS 

A sharp sign used anyv/here on a line causes the rest of the line to be 
treated as a comment. The sharp sign m.ay occur in the first column, if 
desired, replacing the FORTRAN "C" in column one. In this case, the entire 
line is converted to uppercase and copied into the FORTRAN code as a comment 
(unless the /CO sv/itch is in effect; see the Command Line Options section). 

2. COMPOUND STATEMENT 

Brackets [], can be used to enclose single or multiple RATFOR and/or FORTRAN 
statements so that the enclosed block of statements m.ay be used anjntfhere 
that a single RATFOR sta.tement may be used. 
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3. RATIONAL AND LOGICAL OPERATORS 


Since symbols are clearer than the -EQ., .GT,, etc. used by FORTRAN, RATFOR 
allows the use of conventional mathematical symbols. These symbols are 
converted into the equivalent FORTRAN according to the following: 


> 

for 

.GT. 

== 

for 

.EQ. 

>= 

for 

.GE. 

\= 

for 

.NE. 

< 

for 

.LT. 

<= 

for 

• LE. 

\ 

for 

.MOT. 

++ 

for 

.OR. 


for 

.AND. 


4. CONTINUATION LINES 

RATFOR source code lines are automatically continued if: 

1. The statement is obviously incomplete at the end of the line, as in the 
middle of the conditional part of a FOR or IF statement. 

2. The line ends with a comma. 

3. The line ends with an underline character (the underline character 
is not passed to the FORTRAN output) . 

5. QUOTED STRINGS 

Quoted strings are converted into the equivalent Hollerith string. 

6. IFDEF / IFNOTDF.F / ENDIFDEF (Conditional Processing) 

Sections of RATFOR code (one or more lines) can be selectively processed 
into FORTRAN or ignored, depending upon the current define symbol status of 
a specific constant. When "IFDEF (symbol)^’ is encountered in the RATFOR 
source code, a check is made to see if "symbol" has previously appeared in a 
DEFINE statement; if it has, the source code up to the balancing ENDIFDEF 
statement is processed; if not, the source code is skipped until the 
balancing ENDIFDEF is found. The " I FNOTDEF( symbol)" is similar, except that 
that the RATFOR source code up to the balancing ENDIFDEF is processed if 
"symbol" has not been previously defined. 
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The symbolic constant can be given a null definition, if it is being defined 
only for use with the INDEF/IFNOTDEF statements Ce.g. DEFINE (fo o=) is 
sufficient). IFDEFs (and IFNOTDEFs) can be nested; if an outer conditional 
is unsatisfied, all inner conditionals are skipped, just like all other code 
within the unsatisfied conditional. 

Undefined conditional code (that not processed into FORTRAN) is normally 
printed in the RATFOR source listing, but will have no source code line 
numbers on the left-hand side of the page. The /IF command line option can 
be used to suppress the listing of the undefined conditional code. 

7. LITERAL LINES (%) 

If a percent sign (^o) occurs in column one of a RATFOR source code line, the 
entire line except for the percent sign will be passed to the FORTRAN code 
without any modification whatsoever. 

8. DEBUG LINES (?) 

If a question mark (?) occurs in column one of a RATFOR source code line, it 
is considered to be a debug line and will be processed into FORTRAN (minus 
the question mark) only if the /DE (DEBUG) switch was specified in the 
command line (see next section). Multiple levels of debug statement can be 
specified by a digit (1-9) in the second column (after the "?") • Debug 
lines whose level is equal to or greater than the level specified in the 
/DE:n switch are processed, but lines with a lower level are not processed 
into FORTRAN. Lines with no level specified (blank in column two) are 
always processed if the /DE switch is specified. A /DE switch with no value 
causes all debug lines to be processed. For example, the line: 

?.'^ PRINT X 

would print the value of the variable X only if the command line contained a 
/DE or /DE:n, with n less than or equal to 3. 

9. STRINGS 

Since character processing frequently requires the use of strings, the 
preprocessor adds the STRING data type to FORTRAN. In FORTRAN, a STRING 
becomes an integer array with one character per element, plus one element 
for the terminator (end-of-string character) . The number that is assigned 
to each work is the value of the ASCII character code. 

EXAMPLE : 

STRING FOO ”BLATZ*» 
becomes INTEGER FOO (6) 

DATA F00/66,76,65,84,90,eos/ 
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Note that the STRING function requires that the symbolic constant "eos” be 
defined when the STRING keywork is first encountered; otherwise ”eos’* will 
be passed to the FORTRAN code as is and upset the compiler. 

Since ANSII standard FORTRAN requires that all DATA statements must be 
grouped together and placed in the FORTRAN code after all other specifica- 
tion statements, but before any executable statements, STRING statements 
must be grouped together and appear in the RATFOR source code after all 
other specification statements but before any DATA statements. The pre- 
processor holds all the DATA statement parts until the "integer” statement 
parts for all STRINGS have been transmitted to the outer file and then 
outputs the DATA statements as a group. There is a limit of 12 string 
specifications statements with a total of 150 characters in any one program 
module. 


COMMAND LINE OPTIONS 


The command line switches are available to control the actions of the 
preprocessor. The command sv;itches must be contained in a comment line that is 
first recorded in the file. This comment is printed as the second line in the 
heading of the output listing. Where appropriate, a switch can be negated by 
/NOsw or /-sw, Tlie following are the command line sv/itches: 


/CO compress Causes the FORTRAN code that is generated by the preprocessor 

to be compressed for faster I/O by eliminating all comments 
and unnecessary blanks in the generated FORTRAN code. 

Default: /NOCO. 


/DE:n debug Causes all lines beginning with a question mark in column one 

to be processed into FORTRAN code; by default such lines are 
ignored. If n is specified, only debug lines with an equal or 
higher value in column two ivill be processed. 

/FO fortran Causes the generated FORTRAN code to be included at the end of 

the listing. Default: /NOFO. 


/FT ftn Generate FORTRAN source code. Default: /FT. 

/IF ifdef Causes RATFOR source code within unsatisfied conditionals 

(IFDEFs that are not defined or IFNOTDEFs that are defined) 
not to be printed in the listing file, except for the IFDEF or 
IFNOTDEF statem.ent. Default: /NOIF. 


/LC lower case Cause the generated FORTRAN code to be in lower case charac- 
ters. Default: /NOLC. 

/LI list Generate the RATFOR listing. Default: /LI. 

/SY symbols list List the defined symbols table. Default: /NOSY. 
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PREPROCESSOR USE UNDER NOS 


The RATFOR processor is run by using the following NOS commands: 

GET, RATFOR/UN=236939N . 

RATFOR(INPUT, OUTPUT, COMP) 

The three files that are used by RATFOR have the default names of INPUT, OUTPUT 
and COMP. The RATFOR source code is read into the processor on the INPUT file, 
and must not have a record length greater than 181 characters. If a different 
command line is to be used for m.ore than one program module, these modules must 
be separated by an EOF mark. This can be done by using the COPYBF command to 
copy each file into a temporary file and passing this file to the RATFOR 
processor. The RATFOR listing is written to the OUTPUT file and the FORTRAN 
source code is written to the COMP file. 

After a program has been processed by PJ\TFOR, the program control registers 
R1 and/or EF may be examined to determine if there were any detected errors in 
the RATFOR source code. If an error or errors have occurred in the source code, 
but the preprocessor v/as able to process the entire file, R1 will be 1 and EF 
will be 0. If the preprocessor has had to abort, R1 will be 1 and EF will be 4. 
The distinction is made because in the first case the user may want to correct 
the FORTRAN source and continue. Being able to do this in the second case is 
very optimistic. If no errors were detected, R1 and EF are 0. 


PROGRAM EXAMPLE 


The following program gives an example of RATFOR. It is not exhaustive but 
should help in the understanding and use of RATFOR. The program selected for 
the example ivill copy the input file to the output until an end-of-file condi- 
tion is raised. Since the internal ASCII character set is used, lower case a.nd 
terminal control characters may be transmitted to and from a TELEX terminal with 
relative ease. 
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PATFDR 1.0» FTM 4o7><»85 
n PROGRAM for RATFOR EXAMPLE /FO/SY 
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PAGE 1 


1 

2 

3 

5 

6 
7 
6 

9 

10 
11 
12 

13 

14 

15 

16 
17 

25 

26 
27 
26 

29 

30 

31 

32 

33 

34 

35 

36 

37 
36 

39 

40 

41 


« 

P 

P 

« 

P 

P 

P 

P 

P 

P 

P 

P 

p 

P 


n PROGRAM FOR RAfFDR EXAMPLE /FO/SY 
INCLUDE SETUP 

DEFIME(MAXLXNE=91) » MAX WIDTH OF OUTPUT LINE 
DEFINF( 0ECPEMENTi>$°5-l) 

DEFINE ( INCR EM ENTpSo$«1) 

OEFINE<MAX«PO) » MAX STRING LENGTH 
DEFINE(MAXDISPLAY»<MAX^1>) n MAX DISPLAY LENGTH 

DEFINE (BUFFERLEN-<3«MAX0ISPLAY•^3>/<MAX0ISPLAY•^1>) 0 INPUT/OUTPUT BUFFER SIZE 
DEFINE(0AD«-1) 

DEFINE( YES-1) 

DEFINE(E0Fe-3) 

DEFINE<EOSoO) 

OEFINE(OUMMYSIZE-I) 

OEFlNE(TAP£Nn«TAPE$) 

DEFI NP CSTDINoS) « STANDARD INPUT UNIT NUMBER 
DEFINE (STDOUT-6) n STANDARD OUTPUT UNIT NUMBER 
DEFINF(HUGE=»32767) 

INCLUOE/NL CHAR 

PROGRAM EXRAT(INPUTo3UFFERLENi» tf INPUT FILE 

OUTPUT-BUFFERLEN^ # OUTPUT FILE 
TAPEND( STOIN) » INPUTp 0 INPUT TAPE NUMBER 
TAPENQ( STDOUT ) " OUTPUT ) fl OUTPUT TAPE NUMBER 
INTEGER I0 p3UFFER(MAX01SPLAYJ 
INTEGER :>TRPUTpSTRGET 
STRING START «S TART OF INPUT” 

IQo3TRPUT(STD0UTp START) 

REPEAT C 

IO=STRGET(STDINpBUFFERpMAX ) n GET INPUT STRING 
TF(IO -n EOF ) BREAK # STOP IF DONE 
IQoSTRPUT(STDOUTpBUFFER) fl WRITE STRING TO OUTPUT 
1 

WRlTE(iTDaUTpl) 

1 FORMATC 10Xp«ENO OF INPUT") 

S TOP 
END 


RATFGP 1,0/ FTN 4.7+485 m^y 29/ 1981 2i24 PM PAGE 2 

n PRPGPAM CTP RATFOR EXAMPLE /FO/SY 


a SLEN - COMPUTE LENGTH OF STRING 
ft 

42 INTEGFR FUNCTION SLEN(STR) 

43 INTEGER $ TR { DUMM YS IZE ) 

44 DO SLEN-1,HUG6 

45 IF(STR(SLEN) ■« EOS ) BREAK 

46 OECRFMENT(SLEN) # WENT 1 TOO FAR 

47 RETURN 

46 END 
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49 

50 

51 

52 

53 

5A 

55 

56 

57 
5B 

59 

to 

61 

62 

63 

64 

65 

66 
67 

60 

69 

70 

71 

72 

73 

74 

75 

76 

77 


U 

A STRPUT - ^RITE A STRIMG TO A SPECIFIED LUN 
«HJ DUNN APRIL 145 1981 
n 

INTFGER FUNCTION iTPPUT ( LUNp $TR ) 

INTEGER LUN/> IpNdSLEN.MINO^CEOF 
INTEGER iTR(OJMNYSIZE)i> DUFF (MAXDISPLA Y) 

0 

r=MTNO(MAXLlNE.SLFN(STR) ) 

IF{STP(1) FORMFEED) C 
OECREMENTJI) 

IFtl °° 0) C 

rtRITt(LJN^2) n NEWPAGE ONLY 
RETURN ] 

CALL JUTMAP(STR(2)#I.BUFF,N) 

WRITE(LUN,2) (8UFF<I ),I»1,N) ^ NEW PAGE WITH HEADER 
2 FORMATdHlp MAXDISPLAY Rl ) 

1 

ELSF C 

IF( I -- 0 ) C 

WRlTE(LUN.l) t BLANK LINE 
RETURN ] 

ELSE C 

CALL nUTMAP(STR.l»PUFF,N) 

WRTTE(LUN.l) (0UFF (I). I-1,N) i* PRINT SINGLE LINE 
1 FQRMATdXp MAXOISPLAY Rl) 

} 

] 

TF< CEOFILUN) \- 0 ♦♦ IDCHEC(LUN) \- 0) 

STRPUT-DAD 

ELSE 

STRPUT*YFS 

RETURN 

ENH 


HATFuR 1.0. FTN ^.7+485 ^AY 29, 1981 2:24 PM PAGE 4 

« PROGRAM FOP HATFOrt FXAMPLE /FO/SY 


# 

« STRGET - READ A STRING FROM A SPECIFIED LUN 


76 

INTEGER FUNCTION STPGET(LUN, STR, MAXS) 

79 

INTEGER LUN,STR(MAXS), 

BUFF(MAXDKSPLAY) 

80 

REA0(LUN,1) BUFF 


81 

1 FORMAT(MaXDISPLAY 

Rl ) 

82 

IF(CFJF(LUN) \= 0 ) 

C 

83 

STRGET-EOF 


04 

STR CD-EOS 


85 

RETURN 


86 

1 


87 

TF( lOCHEC(LUN) \- 0 

) C 

8P 

STRGET*8A0 


09 

STR(1)«E0S 


90 

RETURN 


91 

1 


92 

CALL INMAP{0UFF,MAXDISPLAY,STR,MAXS) # 

93 

R ETURN 


94 

END 



CONVERT DISPLAY TO ASCII 
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MAY 29r» 1901 2*24 PM 


PAGE 5 


95 

96 

97 

98 

99 


ft CEOF - HIODEI^ EHF FUNCTION 
ftHJ DUNN> A^RIL 14» 1981 
ft 

INTEGER FUNCTION CEOP(LUN) 

r integer eqfpLun 

y, CEUF-EOF (LUN) 

RETURN 

END 


RATFOR 1.0# FTN 4«7^485 MAY 29p 1981 2?24 PM PAGE 6 

ft PROGRAM FOR RATFOR EXAMPLE /FO/SY 


ft 


ft INMAP - CONVERT DISPLAY CODE TO INTERNAL ASCII 
ftHJ OUNNp APRIL lOp 1081 
ft 


100 

SUBROUTINE INNAP(STRI«MAXlj.STROi.NAXO) 



101 

INTEGER STRKOUMMYSIZE* »MAXl, a INPUT STRING 

(LEN-maxI) 

102 

STR3«0UMMYS1ZE) pMAXIp ft OUTPUT 

STRING 

(LENoMAXO) 

103 

DSPLY{2p64>pOSPLYX(3) « DISPLAY 

CODE 

INPUT CHAR 

104 

INTEGER J 



105 

DATA OSPLYl /0 p64p94p37p58p3»0/ 



106 

DATA PSPLY/ 53p 96p 65p 97p 66p 98p 67p 

99# 68# 100# 

107 

69p lOlp 70 p 102p 71p 103p 72p 104p 73# 

105# 


108 

74p 106 p 75p I07p 76 p 108p 77# 109# 78# 

110# 


109 

79# 111# 80# 112# 01p 113# a?# 114# 03p 

115# 


110 

RA# 116# 85# 117# 66# 110# 87# 119# 06# 

120# 


111 

39# 121# 90# 122# 48# 123# 49# 124# 50# 

125# 


112 

51# 126# 52# 127# 53# 0# 54# 1# 55# 2# 



113 

56# 3# 57p 4# 43# 5# 45# 6# 42# 7# 



114 

47# 8# 40# 9# 41# 10# 36# 11# 61# 12# 



115 

32# 13# 44# 14# 46# 15# 35# 16# 17# 



116 

93# 18# 37# 19# 34# 20# 95# 21# 33# 2?# 



117 

35# 23# 39# 24# 63# 25# 60# 26# 62# 27# 



110 

64# 28# 92# 29# 94# 30# 59# 31/ 



119 

K»0 



120 

FUP(J«l; J<»MAXr e K<-MAXO ; INCREMENT(J) ) C 


121 

INCREMENT(K) 



122 

IFISTRKJ ) DHAT ) C 



123 

INCR6MfNT( J) 



12 4 

ST'?0(K)»DSPLY{2#STRI(J) + 1) 



125 

] 



126 

ELSE 



127 

IF(iT»l(J) DAT) C 



12 8 

TNCREMENTIJ) 



129 

iTPOIK )*DSPLY1(STRIU )+l ) 



130 

3 



131 

ELSE 



132 

STR3(K) . 0SPLY(1#STRI( J)+l) 3 



133 

TNCPFMFNr(K) 



134 

5TOO(K)*EOS 



13 5 

RETURN 
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ft PROGRAM FOP RATFOR EXAMPLE /FO/SY 


136 END 
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137 

139 

139 

140 

141 

142 

143 

144 

145 

146 

147 

148 

149 

150 

151 

152 
15 3 

154 

155 

156 

157 

158 

159 

160 
161 
162 

163 

164 

165 

166 

167 

168 

169 

170 


n 

n CJTMAP - CONVERT ASCII CHAR SET IP DISPLAY CODE 
tfHJ DUNN, APRIL 14, 1981 




r 

f 

z 

z 

z 

z 

r 

Z 

z 

z 

r 

z 

z 

7, 


SUBROUTINE 0UTMAP(STRI* I>STR0,0) 

INTEGER STRUDUNMYSI^E),!, n INPoT STRING ( LEN-I ) 
STRO( JUNMYilZE) ,0 p a OUTPUT STRING ( LENoQ ) 
niSPLY(l28)p n DISPLAY CuOE OUTPUT CHAR 


J,C 


% 

i. 

? 

% 

% 

% 

% 

% 

% 

s 

% 


DATA DISPLY / 1 P5 , IR 6p IR 7 p IR P p 1 R9p 1 R ♦, 1R-, IR IR / , IR ( p 
lK)plRSpiP°plR #1 Rpp1R.p1R«p1RCp IPTpIR^p 
1R»,1R_p1R! pIREpIR® p1R?p1R<p1R>p748p1R\p 
760»1R;p1R pIRIpIR”, 

1R«p1RSp1R?p3RGp1R»p1R(p1R)p1R*p1R+p1Rpp 
IR- p 1 R.p1K/p1R0p1R1p1R2p1R3p1R4p1R5»1R6p 
l*t7plRdplR9plR: p1R;p1R<p1Rop1R>p1R?p74Pp 
1RAp1R3p1RCp1RDpXKFp1RFp1RGp1RHp1RIp1RJp 
IRKpIRLpIRMpIRNpIROpIRPp IROp 1 RR p IRS • 1 R T p 
1RUp1RVp1RWp1RXp19Yp1RZp1RCp1R\p1R3p76Bp 
lR_plR!plRAplR9plRCplRDplREf IRF pIRGpIRHp 
IRIpIRJpIRKpIRLpIR^pIRNpIROpIRPpIROpIRRp 
IQS p IRT pIRUpIRVpIRhpIRXpIRYpIRZpIROpIRIp 
1R2p1R3p1R4/ 


G“0 

DO J»ltl C 
C«STRT( J) 

IF(C >o CNTLA E C <« DEL) C 

IF(C < BLANK ♦♦ C > UNDERLINE ) C 
XNCPEflENT(O) 

STRO(n)«DHAT 

3 

XNCREMENT(C) 

INCREfl6NT(0> 

STPO{U)«OISPLY{C) 

3 

3 

RETURN 

END 
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SYMBOLIC CONSTANT 

■ 

DEFINITION 

1 

3A0 

a 

“1 

2 

blank 

a 

32 

3 

PtJFFFRLEN 

D 

246/82 

A 

CNTLA 

a 

0 


DAT 

B 

74B 

6 

OtCPEMENT 

a 

$«$-! 

7 

DFL 

B 

127 

p 

DHAT 

a 

769 

<; 

DUrl^YS IZE 

a 

1 

10 

EOF 

a 

-3 

11 

EOS 

a 

C 

12 

FORMFEED 

a 

12 

13 

HU^'-F 

a 

32767 

14 

increm'^nt 

a 

SaJ+l 

15 

MAX 

a 

PO 

16 

MAXOISPLAY 

B 

81 

17 

iAXLINE 

a 

91 

18 

5 roiN 

a 

5 

19 

stoout 

a 

6 

20 

tapeno 

a 

TAPE^ 

21 

underline 

a 

95 

22 

Y«=S 

a 

1 
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C PROGRAM FOR RATFOR EXAMPLE /FO/SY 

PROGRAM EXRAT C IMPUT ■ 2A6 / 82» OUTPUT » 2A6 / e2» TAPE 5 » 
tINPUT* TAPE 6 = OUTPUT ) 

INTEGER I0» SUFFER ( 81 ) 

INTEGER STRPUTo SIRGET 



INTEGER START 

(15) 

5 

DATA START /83 
^04d 0 / 

p 84p 65p 82p 84 

6 

10 B STRPUT ( 

6p START ) 

7 

20000 CONTINUE 


8 

10 B STRGET ( 

5p BUFFERp BO ) 

9 

TF {.NOT.( 10 

.EO. - 3 ) ) GOTO 

10 

GOTO 20002 


11 

20003 CONTINUE 


12 

10 B STRPUT ( 

6p buffer ) 

13 

20001 GOTO 20000 


14 

20002 CONTINUE 


15 

WRITE ( 6^ 1 ) 


16 

1 FORMAT ( 10X» 

12HEND OF INPUT 

17 

STOP 


18 

END 

r* 



C SLEN - COMPUTE LENGTH OF STRING 

19 

INTEGER FUNCTION SLEN ( STR ) 

20 

INTEGER STR C 

1 ) 

21 

DO 20005 SLEN 

B If 32767 

22 

IF (.NOT. ( STR 

( SLEN ) .EO. 0 

23 

GOTO 20006 


24 

20007 CONTINUE 


25 

20005 CONTINUE 


26 

20006 CONTINUE 


27 

SLFN - SLEN - 

1 

28 

RETURN 


29 

FNO 

c 



C STPPUT - WRITE A STRING TO A SPECIFIED LUN 
CHJ DUNN APRIL 1A» 1931 


30 


integer function STRPUT < LUN, STR ) 
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31 

32 

33 
3A 

35 

36 

37 
30 
39 
AO 
A1 
A2 
A3 
AA 
A5 
A6 
A7 
A8 
A9 

50 

51 

52 

53 
5A 

55 

56 

57 

58 

59 

60 
61 


62 

f3 

6A 

65 


INTEGFR lt> Nff SLEN# f11N0» CEGF 

INTEGER STR ( 1 BUFF ( 01 ) 
r 

I « MTNO ( 9l» SLEN ( SIR ) ) 

IF (cNJTe( 5TR ( i ) oEO, 12 )) GOTO 20009 
I ° I - 1 

IF (.NJT.( I «EQ. 0 )) G3T0 2U011 
WRITE ( LUvi5 2 ) 

RF.TUR’>l 

20011 CHNriNUE 

CALL TUTMAP ( STR ( 2 I# BUFF, N ) 

WRITE ( LUN, 2 ) ( RUFF ( I ), I » 1, N ) 

? F9RMAT ( HI, 91 ) 

GOTO 20010 
20009 CONTINUE 

IF (eNClTo( I oEQo 0 )) G3T0 20013 
WRITE ( LUN, 1 ) 

RFTLIRN 

20013 CONTINUE 

CALL nuTMAP < STPt I, B'jFF, N ) 

WRITE ( LUN, 1 ) ( BUFF ( 1 ) # I » 1, N ) 

1 FORMAT ( U, 81 R1 ) 

2001A CGNTINUF 
2C010 CONTINUE 

IF (.NDT.( CEOF ( LUN ) .NE* 0 .OR* lOCHEC ( LUN ) 
SGOTO 20015 
STRPUT 0-1 
GOTO 20016 
20015 CGNTINUF 

STRPUT 8 1 
2C016 CONTINUE 
RETURN 
FNO 
c 

: STOGET - REAi) A STRING FROM A SPECIFIED LUN 
C 

INTEGER FUNCriON STRGET ( LUN, SIP, MAX$ ) 

INTEGER LUN, STR ( MAXS ), BU^^F ( 81 ) 

RFAO ( LUN, 1 ) BUFF 
1 FORMAT ( FI R1 ) 


• NF« 0 n 
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66 


IF < oNTT. ( 

CECF ( LUN ) oNE. 0 ) ) 

GOTO 20017 

67 


STRGET n » 

3 


60 


SIR ? i ) 

o 0 


69 


RETURN 



70 

2C017 

CONTINUE 



71 


IF ( eN 3To ( 

nCHEC i LUN ) .NEo 0 

) ) GOTO 20019 

72 


STRGET s ” 

1 


73 


STR ( 1 ) 

a 0 


74 


RETURN 



75 

2C019 

CONTINUE 



76 


CALL INMAP 

( BUFF, 81, STR, MaxS 

) 

77 


RETURN 



78 


END 




C 

C CtQF - HIGOEN EOF FUNCTION 
CHJ OUNNi, APRIL l^p 1901 
C 


79 

INTEGER FUNCTIGN CEQF ( LUN ) 

60 

INTEGER EOF, LUN 

81 

CE3FnEGFCL’JN> 

82 

RETURN 

83 

END 


c 

C INMAP - CONVERT DISPLAY CQOF TO INTERNAL ASCII 
CHJ OUNNp APRIL IOp 1u61 
C 


64 SU8RDUTINE INMAP ( STRI# MAXI, STRO» MAXQ ) 

65 INTEGER STRI ( 1 )p MAXI, STRU ( 1 )» MAXO» DSPLY ( 2# 64 ) , 

^DSPLYI ( 8 ) 

86 INTEGER J 

67 DATA OSPLYl / 0/ 64» 94, 37*> 58, 3 ♦ 0 / 

88 DATA nSPLY / 56, 96, 65, 97, 66, 98, 67, 90, 69, 100, 60, 101, 70 

i, 102, 71, 103, 72, 104, 73, 105, 74, 106, 75, 107, 76, 108, 77, 
$109, 73, 110, 79, 111, 80, 112, 81, 113, 02, 114, 03, 115, 84, 

$116, 05, 117, 66, lie, 87, 119, 88, 120, 89, 121, 90, 122, 48, 

$123, 49, 124, 50, 125, 51, 126, 52, 127, 53, 0, 54, 1, 55, 2, 56, 

S 3, 57, 4, 43, 5, 45, 6, 42, 7, 47, 0, 40, 9, 41, iO, 36, 11, 61, 

$ 12, 32, 13, 44, 14, 46, 15, 35, 16, 91, 17, 93, 18, 37, 19, 34, 
$20, 95, 21, 33, 22, 38, 23, 39, 24, 63, 25, 60, 26, 62, 27, 64, 
$28, 92, 29, 94, 30, 59, 31 / 
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09 

90 

91 

92 

93 
9A 

95 

96 

97 
90 

99 

100 
101 
102 

103 

104 

105 

106 

107 

108 

109 

110 
111 
112 


113 

114 

115 


K o 0 

J - I 

20021 IF (.MOI.C J .LF. MAXI .AND. K .LE* MAXO)) GOTO 20023 
K o K 1 

IF (•N0T.( STRI ( J ) .EQ. 76rt )) GOTO 20024 
J • J 1 

STPQ ( K ) o OSPLY ( 2# 5 Th1 ( J ) ♦ 1 ) 

GOTO 20025 

20024 rONTINUE 

IF (.NJ0T,( iTRI { J ) .EO. 740 )) GGY3 20026 
J o J -e* 1 

iTRO ( K ) « OSPLYl ( STRI ( J ) ♦ 1 ) 

GOTO 20027 

20026 CONTINUE 

STRO { K ) = DIPLY ( 1^ STRI ( J ) ♦ 1 ) 

20027 CONTINUE 

20025 CONTINUE 

20022 J - J ♦ 1 
GOTO 20021 

20023 CONTINUE 

K • K ♦ 1 
ST»Q ( K ) - 0 
RETURN 
PNO 
C 

c OJTMAP - CONVERT ASCII CHAR SET TO DISPLAY CODE 
CHJ DUNN# APRIL 14# 19P1 
C 

SUBROUTINE OUTMAP ( STRI# I# STRO# 0 ) 

INTEGER STRI ( 1 )# I# 3TR0 (!)#□# DISPLY ( 120 )# J# C 
DATA DISPLY /IR 5# IR6# 1P7# 1R8# 1 R9, IR + , 1R-, IR# # 1« / , IR < , 

% 1R)#1R$»1R«#1R #lR##lP.#lRi»#lPC#lR3#lRT# 

% LP»#1P.»1R!#1R£#1R»#1R?#1R<#1P>#74B#1R\# 

% 76B#1R!#1R #1R!#1R"# 

t lR»#lRt#lRX,lRC#l»*#lR(#lR)#lP*#lR+#lR## 

$ IR-#1R.#1R/#1R 0#1R1# IR2#1R3#1R4#1R5#1R6# 

% IP7#1R0#1R9#1R« #iR;#XR<#lR»#lR>#lB?#740# 

% IRA#1RB#1RC#1RD,10E,1RF>1R5#1PH,1RI»IRJ# 

% 1PR#1RL» 1RM,1kn#1R0#1RP#1R0#1PR#1RS#1RT# 

S 1KU#1RV»1RW#IkX#1RY#IRZ#1RC#IR\#1R3#7o0# 
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116 

117 

118 

119 

120 
121 
122 

123 

124 

125 

126 
127 
120 

129 

130 

131 


% 1R_#1RI»1RA#1RQ#1RC#1PD#1RE#1PF# IRGflPH# 

$ lRI»lRjf 1RK#1RL»1RM# 1RN»1R0#1PP#1R0#1RR# 

f 1RS#1RT#1P.U#1RV#1RW#1RX#1RY#1RZ#1R0#1R1# 

S 1P2#1P3#1R4/ 

0-0 

OQ 20020 J • 1# I 
C - STRI ( J ) 

IF (.NOT.( C .GE, C .AND. C .LE. 127 )) GOTO 20030 
IF (.NOT.( C .LT. 32 .OP. C .GI. 95 )) GOTO 20032 
0 « 0 ♦ 1 
STRO ( 0 ) • 7*6B 
20C32 CONTINUE 
C • C ♦ 1 
0 • 0 ♦ 1 

STRO ( 0 ) • DISPLY ( C ) 

20030 CONTINUE 

20028 CONTINUE 

20029 CONTINUE 
RETURN 
END 
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